FUNC FUN; < F1, F2, F3, F4, F5, F6 
INST TOOT   TOOT CLAR BRIT BUZZ;   
PLAY ;    
 
  < SCC  .SCR  --  RANDOM NUMBER=     1
 PLAY;
 CLAR     0.000    0.536 C   0.700    F2 F4   0.000   0.000   0.000   0.000
         0.000   0.000   0.000   0.000   0.000   0.000   0.000  D   
;PRINT P1;< CLAR    1
 CLAR     0.536    0.536 P3*P18/C   0.700    F2 F4
;PRINT P1;< CLAR    2
 CLAR     1.072    0.536 P3*P18/C   0.700    F2 F4
;PRINT P1;< CLAR    3
 CLAR     1.608    0.535 P3*P18/C   0.700    F2 F4
;PRINT P1;< CLAR    4
 CLAR     2.143    0.536 P3*P18/C   0.700    F2 F4
;PRINT P1;< CLAR    5
 CLAR     2.679    0.536 P3*P18/C   0.700    F2 F4
;PRINT P1;< CLAR    6
 CLAR     3.215    0.536 P3*P18/C   0.700    F2 F4
;PRINT P1;< CLAR    7
 CLAR     3.751    0.535 P3*P18/C   0.700    F2 F4
;PRINT P1;< CLAR    8
 CLAR     5.357    0.536 C   0.700    F2 F4   0.000   0.000   0.000   0.000
         0.000   0.000   0.000   0.000   0.000   0.000   0.000 CS   
;PRINT P1;< CLAR   10
 CLAR     5.893    0.536 P3*P18/C   0.700    F2 F4
;PRINT P1;< CLAR   11
 CLAR     6.429    0.536 P3*P18/C   0.700    F2 F4
;PRINT P1;< CLAR   12
 CLAR     6.965    0.536 P3*P18/C   0.700    F2 F4
;PRINT P1;< CLAR   13
 CLAR     7.501    0.535 P3*P18/C   0.700    F2 F4
;PRINT P1;< CLAR   14
 CLAR     8.036    0.536 P3*P18/C   0.700    F2 F4
;PRINT P1;< CLAR   15
 CLAR     8.572    0.536 P3*P18/C   0.700    F2 F4
;PRINT P1;< CLAR   16
 CLAR     9.108    0.535 P3*P18/C   0.700    F2 F4
;PRINT P1;< CLAR   17
 CLAR    10.714    0.536 C   0.700    F2 F4   0.000   0.000   0.000   0.000
         0.000   0.000   0.000   0.000   0.000   0.000   0.000  E/2 
;PRINT P1;< CLAR   19
 CLAR    11.250    0.536 P3*P18/C   0.700    F2 F4
;PRINT P1;< CLAR   20
 CLAR    11.786    0.536 P3*P18/C   0.700    F2 F4
;PRINT P1;< CLAR   21
 CLAR    12.322    0.536 P3*P18/C   0.700    F2 F4
;PRINT P1;< CLAR   22
 CLAR    12.858    0.535 P3*P18/C   0.700    F2 F4
;PRINT P1;< CLAR   23
 CLAR    13.393    0.536 P3*P18/C   0.700    F2 F4
;PRINT P1;< CLAR   24
 CLAR    13.929    0.536 P3*P18/C   0.700    F2 F4
;PRINT P1;< CLAR   25
 CLAR    14.465    0.536 P3*P18/C   0.700    F2 F4
;PRINT P1;< CLAR   26
 CLAR    16.072    0.536 C   0.700    F2 F4   0.000   0.000   0.000   0.000
         0.000   0.000   0.000   0.000   0.000   0.000   0.000  F/2 
;PRINT P1;< CLAR   28
 CLAR    16.608    0.535 P3*P18/C   0.700    F2 F4
;PRINT P1;< CLAR   29
 CLAR    17.143    0.536 P3*P18/C   0.700    F2 F4
;PRINT P1;< CLAR   30
 CLAR    17.679    0.536 P3*P18/C   0.700    F2 F4
;PRINT P1;< CLAR   31
 CLAR    18.215    0.536 P3*P18/C   0.700    F2 F4
;PRINT P1;< CLAR   32
 CLAR    18.751    0.535 P3*P18/C   0.700    F2 F4
;PRINT P1;< CLAR   33
 CLAR    19.286    0.536 P3*P18/C   0.700    F2 F4
;PRINT P1;< CLAR   34
 CLAR    19.822    0.536 P3*P18/C   0.700    F2 F4
;PRINT P1;< CLAR   35
 CLAR    21.429    0.536 C   0.700    F2 F4
;PRINT P1;< CLAR   37
 FINISH; < SCC  .SCR